home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / misc / RecentScript.lha / RecentScript / Importers / Thor.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-09-05  |  1.2 KB  |  52 lines
  1. /*****
  2.   $VER: RecentScript THOR Importer 1.0 (30.8.97) ©Arndt van der Molen
  3.  
  4.  
  5.         RecentScript Importer for Newsreader THOR
  6.  
  7.   is a MUIRexx subapplication and can not be started directly.
  8.  
  9.   It is called only from RecentScript at the 'Import' button.
  10.  
  11.   This importer extracts the currently selected mail in the
  12.   message list window to a file in T:. Than it delivers the
  13.   filename as RETURN value. In any other error case no RETURN
  14.   value must be given.
  15.  
  16.   Known 'Bugs':
  17.    - Multiselection not supported
  18.    - Supports only one running THOR instance with portname 'THOR.01'
  19.    - Temporary file will not be deleted
  20. *****/
  21.  
  22. OPTIONS RESULTS
  23.  
  24. PARSE ARG portname
  25.  
  26. ADDRESS VALUE portname
  27.  
  28. IF SHOW('P', 'THOR.01') = 0 THEN DO
  29.   request ID RECSCRWIN TITLE '"Importer Error"' GADGETS '"_OK"' STRING 'You must start Thor first'
  30.   RETURN
  31. END
  32.  
  33. OPTIONS FAILAT 31
  34. ADDRESS 'THOR.01' currentmsg stem msg
  35. OPTIONS FAILAT 10
  36.  
  37. IF RC ~= 0 THEN DO
  38.   request ID RECSCRWIN TITLE '"Importer Error"' GADGETS '"_OK"' STRING THOR.LASTERROR
  39.   RETURN
  40. END
  41.  
  42. OPTIONS FAILAT 31
  43. ADDRESS 'THOR.01' savemessage CURRENT OVERWRITE FILE "T:RS.temp"
  44. OPTIONS FAILAT 10
  45.  
  46. IF RC ~= 0 THEN DO
  47.   request ID RECSCRWIN TITLE '"Importer Error"' GADGETS '"_OK"' STRING THOR.LASTERROR
  48.   RETURN
  49. END
  50.  
  51. RETURN "T:RS.temp"
  52.